home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / h_m wandler bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  518b  |  22 lines
  1. 100 rem
  2. 110 rem programm zur umwandlung von
  3. 120 rem hires bildern (startadr.$2000)
  4. 130 rem in koala-painter bilder.
  5. 140 rem
  6. 150 if q=0 then q=1:load "h/m wandler c000",8,1
  7. 160 if a=0 then input "name des hires bildes ";hn$
  8. 170 if a=0 then a=1:load hn$,8,1
  9. 180 :
  10. 190 sys 49152
  11. 200 input "vordergrundfarbcode ";f1
  12. 210 input "hintergrundfarbcode ";f2
  13. 220 :
  14. 230 for t=8192+9000 to 8192+9999:poket,f2:next
  15. 240 poke 8192+10000,f1
  16. 250 :
  17. 260 poke 46,71:poke 45,239:clr
  18. 270 input "name des koala-bildes ";kn$
  19. 280 kn$="[129]pic "+left$(kn$+"          ",10)
  20. 290 poke 44,32:poke 43,0
  21. 300 save kn$,8,1:sys 64738
  22.